home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / Applications / directtex Pro 2.0 / DirectTeX.5 / Installer-Files / Tools-MPW / Tools-MPW folder / TeXMenu < prev    next >
Encoding:
Text File  |  1995-03-27  |  3.9 KB  |  105 lines  |  [TEXT/MPS ]
  1. # This script file is part of the DirectTeX :-) package.
  2. #
  3. # (c) 1991-94 by Wilfried Ricken
  4. #                Hagenaustraße 41
  5. #                45138 Essen
  6. #                Germany
  7.  
  8. Begin
  9.     Set Echo 0
  10.     Set Exit 0
  11.  
  12.     Exit 0 If {BackgroundShell}
  13.  
  14.     Set NewMenus 1
  15.     Set UpdateTeX 0
  16.     Set UpdateFormats 0
  17.  
  18.     Loop
  19.         Break If {#} == 0
  20.  
  21.         If "{1}" == "-tex"
  22.             Set UpdateTeX 1
  23.             Set NewMenus 0
  24.         Else If "{1}" == "-formats"
  25.             Set UpdateFormats 1
  26.             Set NewMenus 0
  27.         End
  28.  
  29.         Shift 1
  30.     End
  31.  
  32.     If {NewMenus} == 1
  33.         DeleteMenu TeX
  34.         DeleteMenu Formats
  35.         Set UpdateTeX 1
  36.         Set UpdateFormats 1
  37.  
  38.         AddMenu TeX 'About DirectTeX :-) …' 'AboutTeX ∑ Dev:Null'
  39.         AddMenu -help 'Manual Pages…' 'TeXHelp -dialog ∑ Dev:Null'
  40.         If {Status} != 0
  41.             AddMenu TeX 'Manual Pages…' 'TeXHelp -dialog ∑ Dev:Null'
  42.         End
  43.         For i in `Files -s "{dt_TeXLocal}Help-Files:" ≥ Dev:Null`
  44.             AddMenu -help "{i}" "MacDVI ∂"{dt_TeXLocal}Help-Files:{i}∂""
  45.         End
  46.         AddMenu TeX 'Register ShareWare…' 'Register ∑ Dev:Null'
  47.         AddMenu TeX '(-' ''
  48.         AddMenu TeX 'Make Active TeX Project…' 'Begin; ChangeTeXProject "{Active}" -check -confirm || Exit 0; Execute "{dt_TeXProject}"; TeXMenu -tex -formats; End ∑ Dev:Null'
  49.         AddMenu TeX 'Set TeX Project…' 'Begin; ChangeTeXProject -dialog -check -confirm || Exit 0; Execute "{dt_TeXProject}"; TeXMenu -tex -formats; End ∑ Dev:Null'
  50.         AddMenu TeX 'Set Current TeX File' 'Begin; Set dt_TeXCurrentFile "{Active}"; ChangeTeXProject; End ∑ Dev:Null'
  51.         AddMenu TeX 'Unset TeX Project' 'Begin; ChangeTeXProject -clear || Exit 0; Execute "{dt_TeXProject}"; TeXMenu -tex -formats; End ∑ Dev:Null'
  52.         AddMenu TeX 'Show TeX Project' 'Begin; Echo "Project: {dt_TeXProjectName}{dt_TeXProjectExt}∂nDirectory: {dt_TeXProjectDir}∂nFormat: {dt_TeXFormat}∂nCurrent File: {dt_TeXCurrentFile}" | Alert -s; End ∑ Dev:Null'
  53.         AddMenu TeX '(-' ''
  54.     End
  55.  
  56.     If {UpdateTeX} == 1
  57.         If "{dt_TeXProjectName}" == ""
  58.             AddMenu TeX '(Typeset Main TeX File/1' ''
  59.             AddMenu TeX '(Create Bibliography/2' ''
  60.             AddMenu TeX '(Create Index/3' ''
  61.             AddMenu TeX '(Copy DVI File/4' ''
  62.             AddMenu TeX '(Preview DVI File/5' ''
  63.             AddMenu TeX '(Display TeX LogFile/6' ''
  64.             AddMenu TeX '(Edit Main TeX File/7' ''
  65.             AddMenu TeX '(Edit Current TeX File/8' ''
  66.         Else
  67.             AddMenu TeX 'Typeset Main TeX File/1' 'RunSession 1 ∑ Dev:Null'
  68.             AddMenu TeX 'Create Bibliography/2' 'RunSession 2 ∑ Dev:Null'
  69.             AddMenu TeX 'Create Index/3' 'RunSession 3 ∑ Dev:Null'
  70.             AddMenu TeX 'Copy DVI File/4' 'RunSession 4 ∑ Dev:Null'
  71.             AddMenu TeX 'Preview DVI File/5' 'MacDVI "{dt_TeXProjectName}.dvi" ∑ Dev:Null'
  72.             AddMenu TeX 'Display TeX LogFile/6' 'Open `SearchPath -d dt_TeXLogFiles "{dt_TeXProjectName}.log" || Echo :` ∑ Dev:Null'
  73.             AddMenu TeX 'Edit Main TeX File/7' 'Open "{dt_TeXProjectDir}{dt_TeXProjectName}{dt_TeXProjectExt}" ∑ Dev:Null'
  74.             AddMenu TeX 'Edit Current TeX File/8' 'Open "{dt_TeXCurrentFile}" ∑ Dev:Null'
  75.         End
  76.     End
  77.  
  78.     If {NewMenus} == 1
  79.         AddMenu TeX '(-' ''
  80.         AddMenu TeX 'Show Missing Fonts' 'MakeMissing -show ∑ Dev:Null'
  81.         AddMenu TeX 'Make Missing Fonts' 'MakeMissing -make ∑ Dev:Null'
  82.         AddMenu TeX '(-' ''
  83.         AddMenu TeX 'Delete Temporary Files' 'DeleteTempFiles -c ∑ Dev:Null; Close -y "{dt_SessionLog}" ∑ Dev:Null; Close -y "{dt_MissingFonts}" ∑ Dev:Null'
  84.         AddMenu TeX 'Convert Clipboard…' 'Begin; ClipToRez -e -n ≥ "{dt_TempFiles}DirectTeX.Pipe" || Alert < "{dt_TempFiles}DirectTeX.Pipe"; Delete "{dt_TempFiles}DirectTeX.Pipe"; End ∑ Dev:Null'
  85.         AddMenu Formats 'Initialize Formats…' 'InitFormats ∑ Dev:Null'
  86.         AddMenu Formats '(-' ''
  87.     End
  88.  
  89.     If {UpdateFormats} == 1
  90.         For i in `Files -t 'TEXT' "{dt_FormatFiles}Tools-MPW:"`
  91.             If "{dt_TeXProjectName}" == ""
  92.                 AddMenu Formats "({i}" ""
  93.             Else
  94.                 If "{dt_TeXFormat}" =~ /{i}/
  95.                     AddMenu Formats "{i}!" "Begin; Set dt_TeXFormat {i}; ChangeTeXProject; TeXMenu -formats; End ∑ Dev:Null"
  96.                 Else
  97.                     AddMenu Formats "{i}" "Begin; Set dt_TeXFormat {i}; ChangeTeXProject; TeXMenu -formats; End ∑ Dev:Null"
  98.                 End
  99.             End
  100.         End
  101.     End
  102.  
  103.     Exit 0
  104. End ∑ Dev:Null
  105.